home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_0 < prev    next >
Text File  |  1991-06-19  |  7KB  |  421 lines
  1. /MAV 300 dict def
  2. MAV begin 
  3. /useClip true def 
  4. /top    0 def 
  5. /left   1 def 
  6. /bottom 2 def 
  7. /right  3 def 
  8. /CM     6 array def 
  9. /CTM    6 array def 
  10. /CTMR   6 array def 
  11. /MTC    6 array def 
  12. /blimit 1500 def 
  13. /bcnt   0 def 
  14. /rbox 8 array def 
  15. /segbox 8 array def 
  16. /bbox1 4 array def 
  17. /c1 3 array def 
  18. /c2 3 array def 
  19. /d 3 array def    
  20. /delta 3 array def 
  21. /mycurrentrgbcolor 3 array def 
  22. /ulx 0 def 
  23. /uly 1 def 
  24. /llx 2 def 
  25. /lly 3 def 
  26. /urx 4 def 
  27. /ury 5 def 
  28. /lrx 6 def 
  29. /lry 7 def 
  30. /sp [0 0] def 
  31. /ep [0 0] def 
  32. /bbox 4 array def 
  33. /pbox 4 array def 
  34. /scrnProc currentscreen 3 1 roll pop pop def
  35. /currentcolorscreen where {
  36. begin
  37. currentcolorscreen
  38. end
  39. 3 1 roll pop pop 
  40. 4 2 roll pop pop 
  41. 5 -2 roll pop pop 
  42. 6 -2 roll pop pop 
  43. /kProc exch def 
  44. /bProc exch def 
  45. /gProc exch def 
  46. /rProc exch def 
  47. } if 
  48. /Max {2 copy gt {pop}{exch pop} ifelse} bind def
  49. /cellPenW 72.0 /currentcolorscreen where
  50. {begin currentcolorscreen end pop pop
  51. 10 1 roll pop pop 8 1 roll pop pop
  52.  6 1 roll pop pop Max Max Max }
  53. {currentscreen pop pop} ifelse div 2.0 div def
  54. %%BeginProcSet : rect 
  55. /rect { 
  56.  /saveobj save def 
  57.  R PC PF LC SS 
  58.  saveobj restore 
  59. } bind def 
  60. %%EndProcSet 
  61. %%BeginProcSet : R 
  62. /R { 
  63.  newpath
  64.  pbox astore pop
  65.  0 792 translate 1 -1 scale CTMR currentmatrix pop exch translate
  66.  /objectCord mstore def
  67.  pbox right get 2 div
  68.  dup pbox left get exch sub
  69.  pbox left 3 -1 roll put 
  70.  dup pbox right 3 -1 roll put
  71.  pbox bottom get 2 div 
  72.  dup pbox top get exch sub
  73.  pbox top 3 -1 roll put
  74.  dup pbox bottom 3 -1 roll put
  75.  translate 
  76.  CTM currentmatrix pop
  77.  57.3 mul rotate
  78.  RT
  79. } bind def
  80. %%EndProcSet
  81. %%BeginProcSet : SaveScreenBW
  82.  /SaveScreenBW {
  83.  currentscreen
  84.  /scrnProc exch def
  85.  /scrnAngle exch def
  86.  /scrnFreq exch def
  87.   } bind def
  88. %%EndProcSet
  89. %%BeginProcSet : RestoreScreenBW
  90.  /RestoreScreenBW {
  91.  scrnFreq scrnAngle MAV /scrnProc get setscreen
  92.  } bind def
  93. %%EndProcSet
  94. %%BeginProcSet : SetFreqAngleBW
  95.  /SetFreqAngleBW {
  96.  currentscreen
  97.  3 1 roll
  98.  pop pop
  99.  setscreen
  100.  } bind def
  101. %%EndProcSet
  102. %%BeginProcSet : SaveScreenColor 
  103.  /SaveScreenColor {
  104.  currentcolorscreen
  105.  /grayProc exch def
  106.  /grayAngle exch def
  107.  /grayFreq exch def
  108.  /bProc exch def
  109.  /bAngle exch def
  110.  /bFreq exch def
  111.  /gProc exch def
  112.  /gAngle exch def
  113.  /gFreq exch def
  114.  /rProc exch def
  115.  /rAngle exch def
  116.  /rFreq exch def
  117.   } bind def
  118. %%EndProcSet
  119. %%BeginProcSet : RestoreColorScreen
  120.  /RestoreColorScreen {
  121.  rFreq rAngle MAV /rProc get gFreq gAngle MAV /gProc get bFreq bAngle MAV /bProc get grayFreq grayAngle MAV /grayProc get setcolorscreen
  122.  } bind def
  123. %%EndProcSet
  124. %%BeginProcSet : SetFreqAngleColor
  125.  /SetFreqAngleColor { 
  126.  currentcolorscreen 
  127.  3 1 roll pop pop
  128.  4 2 roll pop pop
  129.  5 -2 roll pop pop
  130.  6 -2 roll pop pop
  131.  4 1 roll 
  132.  6 1 roll 
  133.  8 1 roll 
  134.  10 1 roll 
  135.  setcolorscreen 
  136.  } bind def 
  137. %%EndProcSet 
  138. /initmsaverestore { 
  139. userdict begin 
  140. /mdict 10 dict def 
  141. mdict begin 
  142. /mindex -1 def 
  143. /mstacksize 25 def 
  144. /mstack mstacksize array def 
  145. /incmindex { 
  146. /mindex mindex 1 add def 
  147. } bind def 
  148. /decmindex { 
  149. /mindex mindex 1 sub def 
  150. } bind def 
  151. /checkmindex { 
  152. mindex 0 lt { 
  153. (%ERROR: msave/mrestore stack underflow: Offending command 'mrestore'
  154. ) print flush 
  155. stop 
  156. } 
  157. { 
  158. mindex mstacksize ge { 
  159. (%ERROR: msave/mrestore stack overflow: Offending command 'msave'
  160. ) print flush 
  161. stop 
  162. } if 
  163. } ifelse 
  164. } bind def 
  165. /mpush { 
  166. incmindex 
  167. checkmindex 
  168. mstack mindex 
  169. 3 -1 roll put 
  170. } bind def 
  171. /mpop { 
  172. checkmindex 
  173. mstack mindex get 
  174. decmindex 
  175. } bind def 
  176. end 
  177. end 
  178. } bind def 
  179. /msave { 
  180. mdict begin 
  181. matrix currentmatrix mpush 
  182. end 
  183. } bind def 
  184. /mrestore { 
  185. mdict begin 
  186. mpop setmatrix 
  187. end 
  188. } bind def 
  189. /msavelevel { 
  190. mdict begin 
  191. mindex 1 add 
  192. end 
  193. } bind def 
  194. /mstore {
  195. matrix currentmatrix
  196. } bind def
  197. /AutoSizeY {
  198. 0 0 pl
  199. dup 3 1 roll
  200. 4 -1 roll  
  201. add
  202. pl exch pop
  203. exch sub
  204. } bind def
  205. /pl {  
  206. transform
  207. 0.25 sub round 0.25 add exch
  208. 0.25 sub round 0.25 add exch
  209. itransform
  210. } bind def
  211. /pll {
  212. transform
  213. round exch
  214. round exch
  215. itransform
  216. } bind def
  217. /pr { 
  218. dtransform
  219. round exch
  220. round exch
  221. idtransform
  222. } bind def
  223. /m { 
  224. pl  moveto
  225. } bind def
  226. /l { 
  227. pl lineto
  228. } bind def
  229. /c { 
  230. pl curveto
  231. } bind def
  232. /rm { 
  233. pr rmoveto
  234. } bind def
  235. /rl { 
  236. pr rlineto
  237. } bind def
  238. /ar { 
  239. 5 -2 roll pl
  240. 5 2 roll
  241. arc
  242. } bind def
  243. /an { 
  244. 5 -2 roll pl
  245. 5 2 roll
  246. arcn
  247. } bind def
  248. /MakePatternFont {
  249. /FontDict 20 dict def
  250. FontDict begin
  251. /FontName exch def
  252. /Encoding exch def
  253. /FontMatrix [1 0 0 1 0 0 ] def
  254. /FontType 3 def
  255. /FontBBox [ 0 0 1 1 ] def
  256. /PatternDict exch def
  257. /RenderPattern {
  258. patternDict exch get
  259. exec
  260. } bind def
  261. /BuildChar {
  262. exch begin
  263. 1 0 0 0 1 1 setcachedevice
  264. Encoding exch get RenderPattern
  265. end
  266. } bind def
  267. FontName FontDict definefont pop
  268. end
  269. } bind def
  270. /SnapToPattenGrid
  271.     {
  272.     exch
  273.     dup 0 lt {
  274.         1 index sub
  275.     } if
  276.     1 index
  277.     div truncate
  278.     mul
  279. } bind def
  280. /FillPatternString {
  281. dup length
  282. 1 sub
  283. 0 1 3 -1 roll {
  284. 2 index
  285. 2 index
  286. 3 -2 roll
  287. put
  288. } for
  289. pop pop
  290. } bind def
  291. /AutoSizeY {
  292.     0.0 exch dtransform
  293.     round
  294.     idtransform exch pop
  295. } bind def
  296.  /AutoSizeX {
  297.     0.0 dtransform
  298.     exch
  299.     round
  300.     exch
  301.     idtransform pop
  302. } bind def 
  303. /AutoCellSize {
  304.     AutoSizeY
  305.     exch
  306.     AutoSizeX
  307.     exch
  308. } bind def
  309. /CheckPath {
  310.     false
  311.     { pop pop pop true exit}
  312.     { pop pop pop true exit}
  313.     { pop pop pop pop pop pop pop true exit}
  314.     { pop true exit}
  315.     pathforall
  316. } bind def
  317. /PatternFill {                    %        patternCharacter
  318.     /patternString 1 string def
  319.     /cm mstore def
  320.     patternMatrix setmatrix
  321.     1 1 AutoCellSize
  322.     dup 0 eq { pop 1} if
  323.     exch
  324.     dup 0 eq { pop 1} if
  325.     exch
  326.     /patternSize exch 24.0 mul def
  327.     /PatternSizeX exch 24.0 mul patternString length mul def
  328.     /flaterror 0 def
  329.     patternString FillPatternString
  330.     gsave
  331.         flaterror 1 add setflat
  332.         flattenpath
  333.         pathbbox
  334.     grestore
  335.     psy add flaterror add psy SnapToPattenGrid
  336.     exch psx add flaterror add psx SnapToPattenGrid
  337.     3 -1 roll flaterror sub psy SnapToPattenGrid
  338.     4 -1 roll flaterror sub psx SnapToPattenGrid
  339.     4 2 roll pll
  340.     4 2 roll pll
  341.     /llxsnap exch def
  342.     /llysnap exch def
  343.     /urxsnap exch def
  344.     /urysnap exch def
  345.     gsave
  346.         useClip true eq {clip}{eoclip} ifelse newpath
  347.         /PatternFont findfont [psx 0.0 0.0 psy 0.0 0.0] makefont setfont
  348.         llysnap patternSize urysnap {
  349.             llxsnap exch moveto
  350.             llxsnap PatternSizeX urxsnap {
  351.                 pop
  352.                 patternString show
  353.                 %currentpoint am
  354.             } for
  355.         } bind for
  356.     grestore
  357.     cm setmatrix
  358. } bind def                %        End 'PatternFill'
  359. /DefaultPatternFont {
  360.     /cm mstore def
  361.     patternMatrix setmatrix
  362.     1 1 AutoCellSize
  363.     dup 0 eq { pop 1} if
  364.     exch
  365.     dup 0 eq { pop 1} if
  366.     exch
  367.     /psy exch iSizeY mul def
  368.     /psx exch iSizeX mul def
  369.     /patternDict 64 dict def
  370.     patternDict begin
  371.         /NotDef {} def
  372.         /LiteDiagLines {
  373.             iSizeX iSizeY false [iSizeX 0.0 0.0 iSizeY -1.0 mul  0.0 iSizeY]
  374.             {pat}
  375.             imagemask
  376.         } bind def
  377.     end
  378.     /CustEncoding 256 array def
  379.     0 255 1 {
  380.         CustEncoding exch /NotDef put
  381.     } bind for
  382.     CustEncoding 65 /LiteDiagLines put
  383.     patternDict CustEncoding /PatternFont MakePatternFont
  384.     /pathSegProc {
  385.         strokepath
  386.         CheckPath {
  387.             65 PatternFill newpath
  388.         } if
  389.     } bind def
  390.     cm setmatrix
  391. } bind def
  392. /XRound {
  393.     dup
  394.     3 -1 roll
  395.     exch mul round
  396.     exch div
  397. } bind def
  398. /RoundMatrix {
  399.     /i 0 def
  400.     dup {
  401.         100000.0 XRound
  402.         1 index
  403.         exch i exch put
  404.         /i i 1 add def
  405.     } forall
  406. } bind def
  407. /GetBoxesRatio {
  408. 3 -1 roll sub
  409. 7 1 roll
  410. exch sub
  411. 6 1 roll
  412. 3 -1 roll sub
  413. 5 1 roll
  414. exch sub
  415. 4 1 roll
  416. 3 -1 roll div
  417. 3 1 roll
  418. exch div
  419. exch
  420. } bind def